home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / Updates / Virus / VirusExecutor / Install_VE next >
Text File  |  2000-01-01  |  2KB  |  125 lines
  1. ; ************************************************************************
  2. ;
  3. ; $VER: Install 1.00 (06.02.2000)
  4. ; 
  5. ; Install script for VirusExecutor v1.85 Copyright © 2000 Jan Erik Olausen
  6. ;
  7. ; ************************************************************************
  8.  
  9. (set old_level @user-level)
  10. (set @default-dest "")
  11.  
  12. ;=============================================================================
  13. ; Make sure we are running under a 2.04 ROM
  14.  
  15. (if (< (/ (getversion) 65536) 37)
  16. (
  17.     (abort #bad-kick)
  18. ))
  19.  
  20. (set destination
  21.     (tackon
  22.         (askdir
  23.             (prompt "Please select the path where you want to install\nthe VirusExecutor program.\n\nA drawer named VirusExecutor will be created there.\n")
  24.             (help @askdir-help)
  25.             (default "Work:")
  26.             (newpath)
  27.         )
  28.         "VirusExecutor"
  29.     )
  30. )
  31. (set @default-dest destination)
  32.  
  33. (copyfiles
  34.     (source "")
  35.     (dest destination)
  36.     (pattern "VirusExecutor#?")
  37.     (infos)
  38.     
  39. )
  40.  
  41. (copyfiles
  42.     (source "JEOPlay")
  43.     (dest "C:")
  44.     
  45. )
  46.  
  47. (copyfiles
  48.     (source "Sounds")
  49.     (dest (cat destination "/Sounds"))
  50.     (pattern "#?")
  51. )
  52.  
  53.  
  54. ;******************
  55. ;** Locale stuff **
  56. ;******************
  57.  
  58.       (set lang
  59.         (askoptions
  60.           (prompt "Which languages do want installed?")
  61.         (help "Checkmark the languages you want installed, and click Proceed.")
  62.           (choices "Norsk" "Dansk" "Deutsch" "Français")
  63.           (default 0)
  64.       ))
  65.  
  66.       (set n 0)
  67.  
  68.       (while (set language (select n "Norsk" "Dansk" "Deutsch" "Français" ""))
  69.       (
  70.           (if (IN lang n)
  71.              (copyfiles
  72.                   (source (cat "catalogs/" language "/VirusExecutor.catalog" ))
  73.                   (dest (cat "LOCALE:catalogs/" language ))
  74.                   (all)
  75.               )
  76.           )
  77.           (set n (+ n 1))
  78.       ))
  79.  
  80.  
  81.  
  82. ;*****************
  83. ;** Guide stuff **
  84. ;*****************
  85.  
  86. (set guide
  87.    (askoptions
  88.       (prompt "What guide you like to install?")
  89.       (help
  90.         "This will install the VirusExecutor docs."
  91.       )
  92.       (choices "English" "Français")
  93.       (default 1)
  94.    )
  95. )
  96.  
  97. (if (bitand 1 guide)
  98.     (copyfiles
  99.         (source "Docs/VirusExecutor.guide")
  100.         (dest (cat destination))
  101.         (infos)
  102.     )
  103. )
  104.  
  105. (if (bitand 2 guide)
  106.     (copyfiles
  107.         (source "Docs/VirusExecutor_fr.guide")
  108.         (dest (cat destination))
  109.         (infos)
  110.     )
  111. )
  112.  
  113. ;********************
  114. ;** s:user-startup **
  115. ;********************
  116.  
  117. (startup "VirusExecutor"
  118.     (prompt "An assign is needed in to your \"s:user-startup\" file.")
  119.     (help @startup-help)
  120.     (command "if exists \"" destination "\"\n")
  121.     (command "   assign VirusExecutor: \"" destination "\"\n")
  122.     (command "   endif\n")
  123.     (command "endif")
  124. )
  125.